home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / super64ins.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  64 lines
  1. 10 REM"[211]=S[193]"0:SUPER64EX.INS",8
  2. 11 :
  3. 12 [171][171] SUPERM[145]64 COMM[175]S
  4. 13 :  JIM BUTTERFIELD ET AL
  5. 14 :
  6. 15 .M 4000 4080  MEM[176]Y DISPLAY[173]MOD(:)
  7. 16 .R            REGISTERS DIS[173]MOD(;)
  8. 17 .G 5000       [137] CODE AT $5000
  9. 18 .G            [137] [145] PC[178]$5000
  10. 19 .T 1000 2000 7000   TRANSFER MEM
  11. 20 .F 1000 2000 EA     FILL WITH $EA
  12. 21 .H A000 BFFF 'MID   HUNT [129] "MID"
  13. 22 .H 7000 8000 A9 28  HUNT [129] BYTES
  14. 23 .A 3000 BNE $1234   ASSEMBLE
  15. 24 .D EA31       DISASSEMBLE[173]AGAIN(,)
  16. 25 :P F000 F080  [154]INUOUS DISASS'LY
  17. 26 .L"PRGRM",01            TAPE [147]
  18. 27 .L"0:PR*",08            DISK
  19. 28 .S"PRGRM",01,5000,5200  TAPE [148]
  20. 29 .S"0:PRG",08,5000,5200  DISK
  21. 30 .X         EXIT [164] BASIC
  22. 31 [158]8       REENTER M[145]I[164]R
  23. 32 [158][E] REINITIALIZES M[145]I[164]R
  24. 33 :
  25. 34 [171][171] SUPERM[145]64 EXTRA COMM[175]S
  26. 35 :  LIZ DEAL, MUCH JIM B. CODE
  27. 36 :
  28. 37 .CX7000       X[178]0[171]F BYTES WIDE M([171])
  29. 38 .VXX          SCREEN COL[176]S X[178]0[171]F
  30. 39 .E            CALL ADDRESS [171] USE
  31. 40 :               AFTER P.U.P. RESET,
  32. 41 :               [176] [144][173][140]
  33. 42 .J 6000       JUMP [164] SUBR AT $6000
  34. 43 .J            JUMP [145] PC[178]$6000
  35. 44 .#1024        DEC[171]BIT[171]HEX C[145]V
  36. 45 .$0400        HEX[171]BIT[171]DEC
  37. 46 :
  38. 47 [171][171] SUPERM[145]64 DISK TALK
  39. 48 :  NO CRASH [145] N[145]EXISTENT DEVICE
  40. 49 :  LIZ DEAL
  41. 50 .[177]             ERR[176] CHANNEL
  42. 51 .[177]$0           C   L   E
  43. 52 .[177]$0:FILE[172]      A A O U    !
  44. 53 .[177]$0:[172][178]P[173]R[173]S[173]U   T   G
  45. 54 .[177]$01          BLOCKS [184]E
  46. 55 .[177]X0:[145]E,0:TWO DISK UTILITIES
  47. 56 :              X[178]INDVRCSU
  48. 57 .[177]A0:PRG[172]      ADDRESS OF PRG
  49. 58 .[177]L0:PRG[172]      N[176]MAL [147]
  50. 59 .[177]Z0:PRG[172][174]7500 RELOCAT.[147] [164] $7500
  51. 60 .[177]FX           FLIP [157]S [164] DEVICEX
  52. 61 :              X[178]8[171]F
  53. 62 (USE CHANGE DEVICE PRG [164] CHANGE)
  54. 63 MOST [157]S [144] VIA THE [144] KEY.
  55. 64 OTHERS CAN BE PAUSED [175] RESTARTED
  56. 65 WITH ANY KEY.
  57. 66 :
  58. 67 EXT DEVICE SETUP [129]  M,P,D,C
  59. 68 IN BASIC   [171] [159] F,D:[157] F:[158] 8
  60. 69 IN M[145]I[164]R [171] COMM[175](S), [167] X
  61. 70 IN BASIC   [171] [153] #F:[160] F
  62. 71 :
  63. 72 :         T H E   E N D
  64.